home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / D-G / FORTRAN Goodies / QuickTime Folder / Processes.f < prev    next >
Encoding:
Text File  |  1992-10-23  |  3.6 KB  |  138 lines  |  [TEXT/MPS ]
  1.  
  2. C    Created: Friday, June 21, 1991 at 5:09 pm
  3. C    Processes.f
  4. C    Fortran Interface to the Macintosh Libraries
  5.  
  6. C        Copyright Apple Computer, Inc.    1989-1990
  7. C        All rights reserved
  8. !!IFC (.NOT. UsingIncludes)
  9. !!I ZEROINC.F
  10. !!ENDC
  11. !!IFC (.NOT. GOTTypes)
  12. !!I Types.f
  13. !!ENDC
  14. !!IFC (.NOT. GOTEvents)
  15. !!I Events.f
  16. !!ENDC
  17. !!IFC (.NOT. GOTFiles)
  18. !!I Files.f
  19. !!ENDC
  20.  
  21. !!IFC (.NOT. GOTProcesses)
  22.  
  23.  
  24.     STRUCTURE /ProcessSerialNumber/
  25.         Integer*4 highLongOfPSN
  26.         Integer*4 lowLongOfPSN
  27.     END STRUCTURE
  28.     STRUCTURE /ProcessSerialNumberPtr/
  29.         POINTER /ProcessSerialNumber/ P
  30.     END STRUCTURE
  31.  
  32.  
  33.  
  34.     INTEGER*2 kNoProcess
  35.     PARAMETER(kNoProcess = 0)
  36.     INTEGER*2 kSystemProcess
  37.     PARAMETER(kSystemProcess = 1)
  38.     INTEGER*2 kCurrentProcess
  39.     PARAMETER(kCurrentProcess = 2)
  40.     INTEGER*2 launchContinue
  41.     PARAMETER(launchContinue = $4000)
  42.     INTEGER*2 launchNoFileFlags
  43.     PARAMETER(launchNoFileFlags = $0800)
  44.     INTEGER*2 launchUseMinimum
  45.     PARAMETER(launchUseMinimum = $0400)
  46.     INTEGER*2 launchDontSwitch
  47.     PARAMETER(launchDontSwitch = $0200)
  48.     INTEGER*2 launchAllow24Bit
  49.     PARAMETER(launchAllow24Bit = $0100)
  50.     INTEGER*2 launchInhibitDaemon
  51.     PARAMETER(launchInhibitDaemon = $0080)
  52.  
  53.     STRUCTURE /AppParameters/
  54.         Record /EventRecord/ theMsgEvent
  55.         Integer*4 eventRefCon
  56.         Integer*4 messageLength
  57.     END STRUCTURE
  58.     STRUCTURE /AppParametersPtr/
  59.         POINTER /AppParameters/ P
  60.     END STRUCTURE
  61. C    LaunchFlags is equivalent to Integer*2
  62.  
  63.  
  64.     STRUCTURE /LaunchParamBlockRec/
  65.         Integer*4 reserved1
  66.         Integer*2 reserved2
  67.         Integer*2 launchBlockID
  68.         Integer*4 launchEPBLength
  69.         Integer*2 launchFileFlags
  70.         Integer*2 launchControlFlags
  71.         Record /FSSpecPtr/ launchAppSpec
  72.         Record /ProcessSerialNumber/ launchProcessSN
  73.         Integer*4 launchPreferredSize
  74.         Integer*4 launchMinimumSize
  75.         Integer*4 launchAvailableSize
  76.         Record /AppParametersPtr/ launchAppParameters
  77.     END STRUCTURE
  78.     STRUCTURE /LaunchPBPtr/
  79.         POINTER /LaunchParamBlockRec/ P
  80.     END STRUCTURE
  81.  
  82.  
  83.     Integer*2 extendedBlock
  84.     PARAMETER(extendedBlock = $4C43)
  85.     Integer*2 extendedBlockLen
  86.     PARAMETER(extendedBlockLen = 32)    !(Jsizeof(LaunchParamBlockRec) - 12)
  87.     INTEGER*4 modeDeskAccessory
  88.     PARAMETER(modeDeskAccessory = $00020000)
  89.     INTEGER*4 modeMultiLaunch
  90.     PARAMETER(modeMultiLaunch = $00010000)
  91.     INTEGER*4 modeNeedSuspendResume
  92.     PARAMETER(modeNeedSuspendResume = $00004000)
  93.     INTEGER*4 modeCanBackground
  94.     PARAMETER(modeCanBackground = $00001000)
  95.     INTEGER*4 modeDoesActivateOnFGSwitch
  96.     PARAMETER(modeDoesActivateOnFGSwitch = $00000800)
  97.     INTEGER*4 modeOnlyBackground
  98.     PARAMETER(modeOnlyBackground = $00000400)
  99.     INTEGER*4 modeGetFrontClicks
  100.     PARAMETER(modeGetFrontClicks = $00000200)
  101.     INTEGER*4 modeGetAppDiedMsg
  102.     PARAMETER(modeGetAppDiedMsg = $00000100)
  103.     INTEGER*4 mode32BitCompatible
  104.     PARAMETER(mode32BitCompatible = $00000080)
  105.     INTEGER*4 modeHighLevelEventAware
  106.     PARAMETER(modeHighLevelEventAware = $00000040)
  107.     INTEGER*4 modeLocalAndRemoteHLEvents
  108.     PARAMETER(modeLocalAndRemoteHLEvents = $00000020)
  109.     INTEGER*4 modeStationeryAware
  110.     PARAMETER(modeStationeryAware = $00000010)
  111.     INTEGER*4 modeUseTextEditServices
  112.     PARAMETER(modeUseTextEditServices = $00000008)
  113.  
  114.     STRUCTURE /ProcessInfoRec/
  115.         Integer*4 processInfoLength
  116.         Record /StringPtr/ processName
  117.         Record /ProcessSerialNumber/ processNumber
  118.         Integer*4 processType
  119.         Record /OSType/ processSignature
  120.         Integer*4 processMode
  121.         Pointer /Integer*1/ processLocation
  122.         Integer*4 processSize
  123.         Integer*4 processFreeMem
  124.         Record /ProcessSerialNumber/ processLauncher
  125.         Integer*4 processLaunchDate
  126.         Integer*4 processActiveTime
  127.         Record /FSSpecPtr/ processAppSpec
  128.     END STRUCTURE
  129.     STRUCTURE /ProcessInfoRecPtr/
  130.         POINTER /ProcessInfoRec/ P
  131.     END STRUCTURE
  132.  
  133.  
  134. !!SETC GOTProcesses = .true.
  135. !!SETC UsingIncludes = .true.
  136.  
  137. !!ENDC
  138.